//---------------------------------------------------------------------------

#ifndef GrvSCPH1H
#define GrvSCPH1H

  #pragma pack(1)

  struct REGISTRO
   {
    unsigned int DATA;
    int CONTA_DEB;
    int CONTA_CRED;
    double VALOR;
    unsigned long HISTORICO;
    AnsiString COMPLEMENTO;
    int DEBITO_ESTAB;
    int CREDITO_ESTAB;
    int DEBITO_CC[2];
    int CREDITO_CC[2];
    int CONTRAPARTIDA;
    int CONJUNTO_LCTO;
    AnsiString NOME_CTA_DEB;
    AnsiString IDENT_CTA_DEB;
    short TIPO_CTA_DEB;
    short TIPO_IDENT_CTA_DEB;
    AnsiString NOME_CTA_CRED;
    AnsiString IDENT_CTA_CRED;
    short TIPO_CTA_CRED;
    short TIPO_IDENT_CTA_CRED;
    AnsiString NOME_CONTRAP;
    AnsiString IDENT_CONTRAP;
    short TIPO_CONTRAP;
    short TIPO_IDENT_CONTRAP;
    AnsiString ARQUIVAMENTO;
   };

  #pragma pack()
//---------------------------------------------------------------------------
class TGrvSCPH: public TObject
{
 private:
  FILE *W;
  AnsiString __fastcall AjustaNumerico(double Valor, int Decimais);
 public:
  struct REGISTRO *R;
  __fastcall TGrvSCPH(void);
  __fastcall ~TGrvSCPH(void);
  void __fastcall GravaRegistros(void);
  void __fastcall Limpa(struct REGISTRO *R);
  void __fastcall Novo(void);
  void __fastcall AbreArquivo(AnsiString Arquivo);
  void __fastcall TGrvSCPH::FechaArquivo(void);
  TList *L_Registro;
};
//---------------------------------------------------------------------------
#endif
